home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / in_pcb.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  285 b   |  13 lines
  1. if (!defined &_IN_PCB) {
  2.     eval 'sub _IN_PCB {1;}';
  3.     eval 'sub INPLOOKUP_WILDCARD {1;}';
  4.     eval 'sub INPLOOKUP_SETLOCAL {2;}';
  5.     eval 'sub sotoinpcb {
  6.         local($so) = @_;
  7.         eval "((\'struct inpcb\' *)($so)-> &so_pcb)";
  8.     }';
  9.     if (defined &KERNEL) {
  10.     }
  11. }
  12. 1;
  13.